home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ Control Panel Hide 6.xpl < prev    next >
Text File  |  2000-11-13  |  3KB  |  117 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="Appearance\Control Panel\OEM Icons"
  5. "NAME"="Visible OEM Items #1"
  6. "VERSION"="1.12"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Display "3COM Pace Config" applet"
  9. "TEXT 2"="Display "Xteq X-Setup" applet"
  10. "TEXT 3"="Display "RealPlayer Preferences" applet"
  11. "TEXT 4"="Display "MS Office FindFast Control" applet"
  12. "TEXT 5"="Display "Novell NetWare" applet"
  13. "DESCRIPTION 1"="This plug-in can be used to hide or show the different applets inside Start -> Settings -> Control Panel."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18. "COMMENT 2"="Special thanks to Maxwell (maxwello@hotpop.com) for his brilliant tips and CptSiskoX (CptSiskoX@flashmail.com) for his help."
  19. "COMMENT 3"="See also: MS KB Q207750"
  20.  
  21.  
  22. '******************************************************************
  23. '***                COPY !!!! ONLY EDIT LINES BELOW!!!!        ****
  24. '******************************************************************
  25. sVals=""
  26. sVals2=Array("pacecfg.cpl","xqxsetup.cpl","prefscpl.cpl","findfast.cpl","nwc.cpl") 
  27. sVals3=Array("pacecfg.cpl","xqxsetup.cpl","prefscpl.cpl","findfast.cpl","nwc.cpl") 
  28. '******************************************************************
  29. '*** Keep an eye on the order (must be the same as "TEXT x") ! ****
  30. '******************************************************************
  31. sPath="HKCU\Control Panel\Don't Load\"
  32. sFile="CONTROL.INI"
  33. sFileSec="Don't Load"
  34.  
  35.  
  36.  
  37. SUB Plugin_Initialize
  38.  if GetWinVer=4 then
  39.     sVals=sVals3
  40.  else
  41.     sVals=sVals2
  42.  end if
  43.  
  44.  for i=0 to UBound(sVals)
  45.      Call ReadIt(i+1,sVals(i)) 
  46.  next 
  47. END SUB
  48.  
  49. Sub ReadIt(ITM,VAL)
  50.   If GetWinVer=2 or GetWinVer=4 then
  51.  
  52.      s=RegReadValue(sPath & VAL)
  53.      if IsEmpty(s)=true then
  54.         Call SetUIElement(ITM,true)
  55.      else
  56.         Call SetUIElement(ITM,false)
  57.      end if
  58.  
  59.   else
  60.  
  61.     s=IniReadValue(sFile,sFileSec,VAL)
  62.     if len(s)>0 then
  63.        Call SetUIElement(ITM,false)
  64.     else
  65.        Call SetUIElement(ITM,true)
  66.     end if
  67.      
  68.   end if
  69.      
  70. End Sub
  71.  
  72. 'Called when the Plugin should validate the Data the user has entered
  73. SUB Plugin_CheckData(ElementIndex)
  74. END SUB
  75.  
  76. 'Called when the Plugin should apply the changes
  77. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  78.  for i=0 to UBound(sVals)
  79.      Call WriteIt(i+1,sVals(i)) 
  80.  next 
  81.  
  82.  Call IndicateSettingChange()
  83. END SUB
  84.  
  85. Sub WriteIt(ITM,VAL)
  86.  b=GetUIElement(ITM)
  87.  if b=true then
  88.     'Display it
  89.  
  90.     if GetWinVer=2 or GetWinVer=4 then  
  91.        s=RegReadValue(sPath & VAL)
  92.        if IsEmpty(s)=false then
  93.           Call RegDeleteValue(sPath & VAL)
  94.        end if
  95.     else
  96.        Call IniWriteValue(sFile,sFileSec,VAL,"")
  97.     end if
  98.  
  99.  else
  100.    'Hide it
  101.    
  102.    if GetWinVer=2 or GetWinVer=4 then
  103.       Call RegWriteValue(sPath & VAL,"1",1) 
  104.    else
  105.       Call IniWriteValue(sFile,sFileSec,VAL,"no")
  106.    end if
  107.  
  108.  end if   
  109. End Sub
  110.  
  111.  
  112. 'Called when the Plugin is about to be removed from memory
  113. SUB Plugin_Terminate
  114. END SUB
  115.  
  116.  
  117.